Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-02/forge20.zip/DEMO.FMT

Text File | 1993-01-04 | 1KB | 21 lines

CLEAR
@ 3,10 SAY '╔═════════════════════════════════════════════════════════╗          '
@ 4,10 SAY '║                                                         ║          '
@ 5,10 SAY '║                                       CHECK NO.         ║          '
@ 6,10 SAY '║                                                         ║          '
@ 7,10 SAY '║                                    CHECK DATE   /  /    ║          '
@ 8,10 SAY '║                                                         ║          '
@ 9,10 SAY '║  PAYEE                                 AMOUNT $         ║          '
@ 10,10 SAY '║                                                         ║          '
@ 11,10 SAY '║  CATEGORY         COMMENT                               ║          '
@ 12,10 SAY '║                                                         ║          '
@ 13,10 SAY '╚═════════════════════════════════════════════════════════╝          '
@ 5,62 GET Check_No PICTURE '9999'
@ 7,58 GET Month PICTURE '99' RANGE 01,12
@ 7,61 GET Day PICTURE '99' RANGE 01,31
@ 7,64 GET Year PICTURE '99'
@ 9,23 GET Payee PICTURE '@!'
@ 9,59 GET Amount PICTURE '9999.99'
@ 11,24 GET Cat PICTURE '@! AAA'
@ 11,38 GET Comment